home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Stock Market: Browser - Disc 1
/
TheStockMarketRoyaltyFreeImages-BrowserDisc1-WinMac.bin
/
mac
/
English (UK)
/
Start.dir
/
00063_Script_63
< prev
next >
Wrap
Text File
|
2000-02-10
|
1KB
|
54 lines
on startMovie
global NewPath
if VoidP(NewPath) then set NewPath = the pathName
set the exitLock = 1
monitorSet
end
on monitorSet
global gDepth
put the colordepth into gDepth
if gDepth < 16 then
if the machinetype = 256 then
--Windows warning message here... not good monitor depth, please change.
alert "This presentation was optimized for THOUSANDS of colors or higher monitor display. Please adjust your monitor and restart this presentation."
else
set the colordepth = 16
end if
end if
end
on mouseDown
go to "end"
end
on keyDown
if the key < 8 and the key > -1 then
put the key into var
put value(var) into var
set the soundlevel = var
end if
global NewPath
if the commandDown and ¼
(the key = "." or the key = "q") and ¼
the exitLock = TRUE or the keycode = 53 then
play movie NewPath&"Credits.dir"
go to 285
end if
end
on exitMoov
global NewPath
play frame "welcome" of movie NewPath&"Main.dir"
end